home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8502b.d64 / listing 2 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  325b  |  13 lines
  1. 10 GOSUB50000
  2. 20 PRINT:PRINTBE$:PRINT
  3. 30 GOTO10
  4. 50000 REM *** BEFEHLSEINGABE II ***
  5. 50010 POKE198,0:BE$="":PRINT"WAS NUN ? ";
  6. 50020 POKE204,0
  7. 50030 GETX$:IFX$=""THEN50030
  8. 50040 IFPEEK(203)=1ORLEN(BE$)>68THENPRINT" ":POKE204,1:RETURN
  9. 50050 I=ASC(X$):IFI<65ORI>90THENIFI<>32ANDI<>20ANDI<>34THEN50030
  10. 50060 IFI=20ANDBE$=""THEN50030
  11. 50070 IFI=20THENPOKE204,1:PRINT"[157]  [157][157]";:BE$=LEFT$(BE$,LEN(BE$)-1):GOTO50020
  12. 50080 PRINTX$;:BE$=BE$+X$:GOTO50030
  13.